home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Libraries / SAT 2.3a1 / SATminimal ƒ / SATminimal.c < prev    next >
Encoding:
Text File  |  1994-11-02  |  1.5 KB  |  34 lines  |  [TEXT/KAHL]
  2.     InitDialogs (nil);        /* no restart proc */
  3.     InitCursor ();
  4.  
  5.     MoreMasters ();
  6.     MoreMasters ();
  7. /* End of standard initializations */
  8.  
  9. /* Initialize, using PICTs 128 or 129 as background, Classic-sized drawing area. */
  10.     SATInit(128, 129, 512, 322);
  11.  
  12. /* Initialize sprite unit(s), by preloading faces and sounds */
  13.     InitMySprite();
  14.  
  15. /* Make a few sprites */
  16.     ignoreSp = SATNewSprite(0, 50, 50, SetupMySprite);
  17.     ignoreSp = SATNewSprite(0, 100, 100, SetupMySprite);
  18.     ignoreSp = SATNewSprite(0, 125, 120, SetupMySprite);
  19.     ignoreSp = SATNewSprite(0, 150, 140, SetupMySprite);
  20.     ignoreSp = SATNewSprite(0, 200, 180, SetupMySprite);
  21.     ignoreSp = SATNewSprite(0, 250, 200, SetupMySprite);
  22.     ignoreSp = SATNewSprite(0, 300, 250, SetupMySprite);
  23.  
  24. /* Run until the user clicks the mouse button  */
  25.     while (!Button())
  26.     {
  27.         L = TickCount();
  28.         SATRun(true); /* Run the animation */
  29.         while (L > TickCount() - 2L) /* Speed limit */
  30.             ;
  31.     }
  32.     SATSoundShutup(); /* Always make sure the channel is de-allocated */
  33. }
  34.